home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / www / RandAnim.lha / Anim Randomiser / Install_Anim_Randomiser < prev    next >
Encoding:
Text File  |  1998-09-13  |  815 b   |  27 lines
  1. /* Randomise Transfer Anim */
  2. /* Installation Program */
  3. /* D. O'Cuinn 1998 */
  4.  
  5. address COMMAND
  6.  
  7. rxset file '`requestfile DRAWERSONLY title="Where is your IBrowse directory?"`'
  8. drawer = getclip('FILE')
  9.  
  10. if ~exists(drawer || "images") then drawer = drawer || "IBrowse/" /* they've picked the wrong one? */
  11.  
  12. if ~exists(drawer || "IBrowse") then do
  13.     say "This is not the correct directory!"
  14.     exit
  15. end
  16.  
  17. if ~exists(drawer || "Transfer_Anims") then do
  18.     'makedir ' drawer || 'Transfer_Anims'
  19.     'copy ' drawer || 'images/def_transferanimation TO ' drawer || 'Transfer_Anims/def_transferanimation.1'
  20.     'copy ' drawer || 'images/def_transferanimation.info TO ' drawer || 'Transfer_Anims/def_transferanimation.1.info'
  21. end
  22.  
  23. 'copy #? TO ' || drawer
  24. 'delete ' || drawer || 'Install_Anim_Randomiser#?'
  25.  
  26. say "Installation complete!"
  27.